home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 12, No. 03 (1991-03)(MindCraft Publishing)(Side A)[a].zip
/
Nibble Volume 12, No. 03 (1991-03)(MindCraft Publishing)(Side A)[a].po
/
DD.DEMO.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
2KB
|
21 lines
10 REM ***********************
20 REM * DD.DEMO *
30 REM * by James E. Trudeau *
40 REM * Copyright (C) 1991 *
50 REM * by MindCraft Publ. *
60 REM * Concord, MA 01742 *
70 REM ***********************
80 PRINT CHR$(4)"BLOAD DOUBLE.DUMP"
90 TEXT : HOME : FOR X = 160 TO 255:A$ = A$ + CHR$(X): NEXT
100 F = F +( PEEK(49182) >127) +( PEEK(49183) >127): REM 0=40 COLUMN,1=80 COLUMN IN 40 COLUMN MODE,2=80 COLUMN MODE
110 POKE 49166,0: VTAB 2: PRINT "MAIN CHARACTER SET": PRINT : REM TURN ON MAIN CHARACTER SET
120 PRINT A$: FLASH : PRINT RIGHT$(A$,64): IF F = 0 THEN F = 0: INVERSE : PRINT RIGHT$(A$,64): NORMAL : GOTO 200: REM NO ALTERNATE CHARACTERS
130 IF F = 1 THEN FOR X = 0 TO 39: POKE 1064 +X,X: NEXT : FOR X = 40 TO 63: POKE 1192 +X -40,X: NEXT : PRINT : PRINT : GOTO 150
140 FOR X = 0 TO 62 STEP 2:AUX = PEEK(49237): POKE 1792 +X/2,X:MAIN = PEEK(49236): POKE 1792 +X/2,X +1: NEXT : PRINT
150 NORMAL : PRINT : PRINT "PRESS A KEY TO DUMP THE SCREEN.";: GET Z$: PRINT Z$: CALL 768: HOME
160 POKE 49167,0: VTAB 2: PRINT "ALTERNATE CHARACTER SET": PRINT : PRINT A$: INVERSE : PRINT A$: NORMAL
170 IF PEEK(64899) + PEEK(64898) <420 THEN 200: REM NOT //c OR ENHANCED //e
180 PRINT : PRINT "MOUSETEXT": PRINT : IF F = 1 THEN FOR X = 0 TO 31: POKE 1576 +X,X +64: NEXT : PRINT : GOTO 200
190 FOR X = 0 TO 30 STEP 2:AUX = PEEK(49237): POKE 1320 +X/2,X +64:MAIN = PEEK(49236): POKE 1320 +X/2,X +65: NEXT : PRINT
200 CALL 768: PRINT
210 IF F = 0 THEN VTAB 12: PRINT "TRY ME WITH THE 80 COLUMN CARD ON."